Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / asmexam.arc / DUMP.LST < prev next >

Wrap

File List | 1984-09-03 | 21.3 KB | 459 lines

The Microsoft MACRO Assembler 09-03-84 PAGE 1-1 DUMP --- Display File Contents 1 name dump 2 page 55,132 3 title DUMP --- Display File Contents 4 5 ;DUMP --- a utility to display the contents of a file in hex 6 ;and ASCII format. Requires PC-DOS or MS-DOS 2.0. 7 8 ;Used in the form: 9 ;A>dump path\filename.ext [>device] 10 ;(item in square brackets is optional) 11 12 = 000D cr equ 0dh ;ASCII carriage return 13 = 000A lf equ 0ah ;ASCII line feed 14 = 0020 blank equ 20h ;ASCII space code 15 16 = 0080 command equ 80h ;buffer for command tail 17 18 = 0080 blksize equ 128 ;size of input file records 19 20 = 0001 output_handle equ 1 ;handle of standard output de 21 ;(can be redirected) 22 = 0002 error_handle equ 2 ;handle of standard error dev 23 ;(not redirectable) 24 25 0000 cseg segment para public 'CODE' 26 27 assume cs:cseg,ds:data,es:data,ss:stack 28 29 0000 dump proc far ;entry point from PC-DOS 30 31 0000 1E push ds ;save DS:0000 for final 32 0001 33 C0 xor ax,ax ;return to PC-DOS 33 0003 50 push ax 34 0004 B8 ---- R mov ax,data ;make our data segment 35 0007 8E C0 mov es,ax ;addressable via ES register. 36 0009 B4 30 mov ah,30h ;check version of PC-DOS. 37 000B CD 21 int 21h 38 000D 3C 02 cmp al,2 39 000F 73 0C jae dump1 ;proceed, DOS 2.0 or greater. 40 0011 BA 017E R mov dx,offset msg3 ;DOS 1.x --- print error mess 41 0014 8C C0 mov ax,es ;we must use the old PC-DOS 42 0016 8E D8 mov ds,ax ;string output function since 43 0018 B4 09 mov ah,9 ;handles are not available in 44 001A CD 21 int 21h ;this version of PC-DOS. 45 001C CB ret 46 001D E8 00A8 R dump1: call get_filename ;get path and file spec.for 47 ;input file from command line 48 0020 8C C0 mov ax,es ;set DS = ES for remainder 49 0022 8E D8 mov ds,ax ;of program. 50 0024 73 0A jnc dump2 ;jump,got acceptable name. The Microsoft MACRO Assembler 09-03-84 PAGE 1-2 DUMP --- Display File Contents 51 0026 BA 016B R mov dx,offset msg2 ;missing or illegal filespec. 52 0029 B9 0013 90 mov cx,msg2_length 53 002D EB 75 90 jmp dump9 ;print error message and exit 54 55 56 0030 E8 00CB R dump2: call open_input ;now try to open input file 57 0033 73 0A jnc dump3 ;jump, opened input ok 58 0035 BA 0159 R mov dx,offset msg1 ;open of input file failed. 59 0038 B9 0012 90 mov cx,msg1_length 60 003C EB 66 90 jmp dump9 ;print error msg and exit. 61 62 003F E8 0101 R dump3: call read_block ;initialize input file buffer 63 0042 73 0A jnc dump4 ;jump,got a block 64 0044 BA 019B R mov dx,offset msg4 ;empty file, print error 65 0047 B9 000E 90 mov cx,msg4_length 66 004B EB 57 90 jmp dump9 ;message and exit 67 68 69 ;file successfully opened. 70 004E dump4: ;now convert and display it! 71 004E E8 00E1 R call get_char ;read 1 character from input. 72 0051 72 4D jc dump8 ;jump,end of file 73 0053 FF 06 0044 R inc input_addr ;update relative file positio 74 75 0057 0B DB or bx,bx ;is this 1st char of block? 76 0059 75 03 jnz dump5 ;no 77 005B E8 012F R call print_heading 78 79 005E 81 E3 000F dump5: and bx,0fh ;is this first byte of 16? 80 0062 75 0B jnz dump6 ;no, jump 81 0064 50 push ax ;save the byte 82 0065 BF 0048 R mov di,offset output ;convert relative file addr. 83 0068 A1 0044 R mov ax,input_addr ;for output string 84 006B E8 0147 R call conv_word 85 006E 58 pop ax 86 006F dump6: ;store ASCII version of chara 87 ;if it is alphanumeric, 88 006F BF 007F R mov di,offset outputb 89 0072 03 FB add di,bx ;calculate output string addr 90 0074 C6 05 2E mov byte ptr[di],'.' ;if it is control character, 91 0077 3C 20 cmp al,blank ;just print a dot. 92 0079 72 06 jb dump7 ;jump,not alphanumeric, 93 007B 3C 7E cmp al,7eh 94 007D 77 02 ja dump7 ;jump not alphanumberic, 95 007F 88 05 mov [di],al ;store ASCII character. 96 0081 dump7: 97 0081 53 push bx ; save current offset 98 0082 BF 004E R mov di,offset outputa ; offset of hex area 99 0085 03 FB add di,bx ; + 3*bx is where next 100 0087 03 FB add di,bx ; pair of hex digits go The Microsoft MACRO Assembler 09-03-84 PAGE 1-3 DUMP --- Display File Contents 101 0089 03 FB add di,bx 102 008B E8 0152 R call conv_byte ;value => printable hex digits 103 008E 5B pop bx ;restore offset value 104 008F 83 FB 0F cmp bx,0fh ;16 bytes converted? 105 0092 75 BA jne dump4 ; no go back and do another 106 0094 BA 0048 R mov dx,offset output ; 107 0097 B9 0049 90 mov cx,output_length 108 009B E8 011F R call write_std 109 009E EB AE jmp dump4 110 111 00A0 dump8: 112 00A0 E8 00D8 R call close_input 113 00A3 CB ret 114 115 00A4 dump9: 116 00A4 E8 0127 R call write_error 117 00A7 CB ret 118 119 00A8 dump endp 120 121 122 00A8 get_filename proc near 123 00A8 BE 0080 mov si,offset command 124 00AB BF 0000 R mov di,offset input_name 125 00AE FC cld 126 00AF AC lodsb 127 00B0 0A C0 or al,al 128 00B2 74 15 jz get_filename4 129 130 00B4 get_filename1: 131 00B4 AC lodsb 132 00B5 3C 0D cmp al,cr 133 00B7 74 10 je get_filename4 134 00B9 3C 20 cmp al,blank 135 00BB 74 F7 jz get_filename1 136 137 00BD get_filename2: 138 00BD AA stosb 139 00BE AC lodsb 140 00BF 3C 0D cmp al,cr 141 00C1 74 04 je get_filename3 142 00C3 3C 20 cmp al,blank 143 00C5 75 F6 jne get_filename2 144 145 00C7 get_filename3: 146 00C7 F8 clc 147 00C8 C3 ret 148 149 00C9 get_filename4: 150 00C9 F9 stc The Microsoft MACRO Assembler 09-03-84 PAGE 1-4 DUMP --- Display File Contents 151 00CA C3 ret 152 153 00CB get_filename endp 154 155 00CB open_input proc near 156 00CB BA 0000 R mov dx,offset input_name ; ds:dx => addr filename 157 00CE B0 00 mov al,0 158 00D0 B4 3D mov ah,3dh ; open file function in DOS 159 00D2 CD 21 int 21h 160 00D4 A3 0040 R mov input_handle,ax 161 00D7 C3 ret 162 00D8 open_input endp 163 164 00D8 close_input proc near 165 00D8 8B 1E 0040 R mov bx,input_handle 166 00DC B4 3E mov ah,3eh ; DOS closefile function number 167 00DE CD 21 int 21h 168 00E0 C3 ret 169 00E1 close_input endp 170 171 00E1 get_char proc near 172 00E1 8B 1E 0042 R mov bx,input_ptr 173 00E5 81 FB 0080 cmp bx,blksize ; is this the end of a block? 174 00E9 75 0C jne get_char1 175 00EB C7 06 0042 R 0000 mov input_ptr,0 ; if eob then set pointer to 0 176 00F1 E8 0101 R call read_block ; and get another block 177 00F4 73 EB jnc get_char 178 00F6 C3 ret 179 180 00F7 8A 87 00D9 R get_char1: mov al,[input_buffer+bx] 181 00FB FF 06 0042 R inc input_ptr 182 00FF F8 clc ; set carry 0 since not eof 183 0100 C3 ret 184 185 0101 get_char endp 186 187 0101 read_block proc near 188 189 0101 8B 1E 0040 R mov bx,input_handle 190 0105 B9 0080 mov cx,blksize 191 0108 BA 00D9 R mov dx,offset input_buffer 192 010B B4 3F mov ah,3fh ; dos read disk function 193 010D CD 21 int 21h 194 010F FF 06 0046 R inc input_block 195 0113 C7 06 0042 R 0000 mov input_ptr,0 196 0119 0B C0 or ax,ax ;ax contains # of bytes read 197 011B 75 01 jnz read_block1 ; if not eof ret (carry is 0) 198 011D F9 stc ; else set carry and ret 199 200 011E read_block1: The Microsoft MACRO Assembler 09-03-84 PAGE 1-5 DUMP --- Display File Contents 201 011E C3 ret 202 203 011F read_block endp 204 205 011F write_std proc near 206 207 011F BB 0001 mov bx,output_handle 208 0122 B4 40 mov ah,40h ; write device function number 209 0124 CD 21 int 21h 210 0126 C3 ret 211 212 0127 write_std endp 213 214 0127 write_error proc near 215 216 0127 BB 0002 mov bx,error_handle 217 012A B4 40 mov ah,40h 218 012C CD 21 int 21h 219 012E C3 ret 220 221 012F write_error endp 222 223 012F print_heading proc near 224 012F 50 push ax 225 0130 53 push bx 226 0131 BF 009A R mov di,offset headinga 227 0134 A1 0046 R mov ax,input_block 228 0137 E8 0147 R call conv_word 229 013A BA 0091 R mov dx,offset heading 230 013D B9 0048 90 mov cx,heading_length 231 0141 E8 011F R call write_std 232 0144 5B pop bx 233 0145 58 pop ax 234 0146 C3 ret 235 236 0147 print_heading endp 237 238 0147 conv_word proc near 239 0147 50 push ax 240 0148 8A C4 mov al,ah 241 014A E8 0152 R call conv_byte 242 014D 58 pop ax 243 014E E8 0152 R call conv_byte 244 0151 C3 ret 245 246 0152 conv_word endp 247 248 0152 conv_byte proc near 249 250 0152 2A E4 sub ah,ah ; zero ah reg The Microsoft MACRO Assembler 09-03-84 PAGE 1-6 DUMP --- Display File Contents 251 0154 B1 10 mov cl,16 252 0156 F6 F1 div cl 253 0158 E8 0163 R call ascii 254 015B AA stosb 255 015C 8A C4 mov al,ah 256 015E E8 0163 R call ascii 257 0161 AA stosb 258 0162 C3 ret 259 260 0163 conv_byte endp 261 262 0163 ascii proc near 263 0163 04 30 add al,'0' ; convert al to ascii char 264 0165 3C 39 cmp al,'9' 265 0167 7E 02 jle ascii2 266 0169 04 27 add al,'a'-'9'-1 ; offset to a-f hex range 267 268 016B C3 ascii2: ret 269 016C ascii endp 270 016C cseg ends 271 272 0000 data segment para public'DATA' 273 274 0000 40 [ input_name db 64 dup(0) ; buffer for input filespec 275 00 276 ] 277 278 0040 0000 input_handle dw 0 ;token from DOS for input file 279 0042 0000 input_ptr dw 0 ;pointer to input de-blocking buffer 280 0044 0000 input_addr dw 0 ; relatve address in file 281 282 0046 0000 input_block dw 0 ;current 128k block byte number 283 0048 6E 6E 6E 6E 20 20 output db 'nnnn',blank,blank 284 004E 10 [ outputa db 16 dup('00',blank) 285 30 30 286 20 287 ] 288 289 007E 20 db blank 290 291 007F 30 31 32 33 34 35 outputb db '0123456789abcdef',cr,lf 292 36 37 38 39 61 62 293 63 64 65 66 0D 0A 294 = 0049 output_length equ $-output 295 0091 0D 0A 52 65 63 6F heading db cr,lf,'Record',blank 296 72 64 20 297 009A 6E 6E 6E 6E 20 20 headinga db 'nnnn',blank,blank,cr,lf 298 0D 0A 299 00A2 07 [ db 7 dup(blank) 300 20 The Microsoft MACRO Assembler 09-03-84 PAGE 1-7 DUMP --- Display File Contents 301 ] 302 303 00A9 30 20 20 31 20 20 db '0 1 2 3 4 5 6 7 ' 304 32 20 20 33 20 20 305 34 20 20 35 20 20 306 36 20 20 37 20 20 307 00C1 38 20 20 39 20 20 db '8 9 A B C D E F',cr,lf 308 41 20 20 42 20 20 309 43 20 20 44 20 20 310 45 20 20 46 0D 0A 311 = 0048 heading_length equ $-heading 312 00D9 80 [ input_buffer db blksize dup(?) 313 ?? 314 ] 315 316 0159 0D 0A msg1 db cr,lf 317 015B 43 61 6E 6E 6F 74 db 'Cannot open file' 318 20 6F 70 65 6E 20 319 66 69 6C 65 320 = 0012 msg1_length equ $-msg1 321 322 016B 0D 0A msg2 db cr,lf 323 016D 4D 69 73 73 69 6E db 'Missing file name' 324 67 20 66 69 6C 65 325 20 6E 61 6D 65 326 = 0013 msg2_length equ $-msg2 327 017E 0D 0A msg3 db cr,lf 328 0180 52 65 71 75 69 72 db 'Requires DOS 2.0 or greater' 329 65 73 20 44 4F 53 330 20 32 2E 30 20 6F 331 72 20 67 72 65 61 332 74 65 72 333 = 001D msg3_length equ $-msg3 334 335 019B 0D 0A msg4 db cr,lf 336 019D 45 6D 70 74 79 20 db 'Empty file',cr,lf 337 66 69 6C 65 0D 0A 338 = 000E msg4_length equ $-msg4 339 340 01A9 data ends 341 342 0000 stack segment para stack'STACK' 343 0000 40 [ db 64 dup(?) 344 ?? 345 ] 346 347 348 0040 stack ends 349 end dump The Microsoft MACRO Assembler 09-03-84 PAGE Symbols-1 DUMP --- Display File Contents Segments and groups: N a m e Size align combine class CSEG . . . . . . . . . . . . . . 016C PARA PUBLIC 'CODE' DATA . . . . . . . . . . . . . . 01A9 PARA PUBLIC 'DATA' STACK. . . . . . . . . . . . . . 0040 PARA STACK 'STACK' Symbols: N a m e Type Value Attr ASCII. . . . . . . . . . . . . . N PROC 0163 CSEG Length =0009 ASCII2 . . . . . . . . . . . . . L NEAR 016B CSEG BLANK. . . . . . . . . . . . . . Number 0020 BLKSIZE. . . . . . . . . . . . . Number 0080 CLOSE_INPUT. . . . . . . . . . . N PROC 00D8 CSEG Length =0009 COMMAND. . . . . . . . . . . . . Number 0080 CONV_BYTE. . . . . . . . . . . . N PROC 0152 CSEG Length =0011 CONV_WORD. . . . . . . . . . . . N PROC 0147 CSEG Length =000B CR . . . . . . . . . . . . . . . Number 000D DUMP . . . . . . . . . . . . . . F PROC 0000 CSEG Length =00A8 DUMP1. . . . . . . . . . . . . . L NEAR 001D CSEG DUMP2. . . . . . . . . . . . . . L NEAR 0030 CSEG DUMP3. . . . . . . . . . . . . . L NEAR 003F CSEG DUMP4. . . . . . . . . . . . . . L NEAR 004E CSEG DUMP5. . . . . . . . . . . . . . L NEAR 005E CSEG DUMP6. . . . . . . . . . . . . . L NEAR 006F CSEG DUMP7. . . . . . . . . . . . . . L NEAR 0081 CSEG DUMP8. . . . . . . . . . . . . . L NEAR 00A0 CSEG DUMP9. . . . . . . . . . . . . . L NEAR 00A4 CSEG ERROR_HANDLE . . . . . . . . . . Number 0002 GET_CHAR . . . . . . . . . . . . N PROC 00E1 CSEG Length =0020 GET_CHAR1. . . . . . . . . . . . L NEAR 00F7 CSEG GET_FILENAME . . . . . . . . . . N PROC 00A8 CSEG Length =0023 GET_FILENAME1. . . . . . . . . . L NEAR 00B4 CSEG GET_FILENAME2. . . . . . . . . . L NEAR 00BD CSEG GET_FILENAME3. . . . . . . . . . L NEAR 00C7 CSEG GET_FILENAME4. . . . . . . . . . L NEAR 00C9 CSEG HEADING. . . . . . . . . . . . . L BYTE 0091 DATA HEADINGA . . . . . . . . . . . . L BYTE 009A DATA HEADING_LENGTH . . . . . . . . . Number 0048 INPUT_ADDR . . . . . . . . . . . L WORD 0044 DATA INPUT_BLOCK. . . . . . . . . . . L WORD 0046 DATA INPUT_BUFFER . . . . . . . . . . L BYTE 00D9 DATA Length =0080 INPUT_HANDLE . . . . . . . . . . L WORD 0040 DATA INPUT_NAME . . . . . . . . . . . L BYTE 0000 DATA Length =0040 INPUT_PTR. . . . . . . . . . . . L WORD 0042 DATA LF . . . . . . . . . . . . . . . Number 000A MSG1 . . . . . . . . . . . . . . L BYTE 0159 DATA The Microsoft MACRO Assembler 09-03-84 PAGE Symbols-2 DUMP --- Display File Contents MSG1_LENGTH. . . . . . . . . . . Number 0012 MSG2 . . . . . . . . . . . . . . L BYTE 016B DATA MSG2_LENGTH. . . . . . . . . . . Number 0013 MSG3 . . . . . . . . . . . . . . L BYTE 017E DATA MSG3_LENGTH. . . . . . . . . . . Number 001D MSG4 . . . . . . . . . . . . . . L BYTE 019B DATA MSG4_LENGTH. . . . . . . . . . . Number 000E OPEN_INPUT . . . . . . . . . . . N PROC 00CB CSEG Length =000D OUTPUT . . . . . . . . . . . . . L BYTE 0048 DATA OUTPUTA. . . . . . . . . . . . . L BYTE 004E DATA Length =0010 OUTPUTB. . . . . . . . . . . . . L BYTE 007F DATA OUTPUT_HANDLE. . . . . . . . . . Number 0001 OUTPUT_LENGTH. . . . . . . . . . Number 0049 PRINT_HEADING. . . . . . . . . . N PROC 012F CSEG Length =0018 READ_BLOCK . . . . . . . . . . . N PROC 0101 CSEG Length =001E READ_BLOCK1. . . . . . . . . . . L NEAR 011E CSEG WRITE_ERROR. . . . . . . . . . . N PROC 0127 CSEG Length =0008 WRITE_STD. . . . . . . . . . . . N PROC 011F CSEG Length =0008 Warning Severe Errors Errors 0 0